www.gusucode.com > 环保时代家庭财务管理系统 EPffms v4.0 > 环保时代家庭财务管理系统 EPffms v4.0\code\eptimehome\default.asp

    <!--#include file="inc/config.asp"-->
<% 
Response.Buffer = TRUE 
Dim httpAccept, isWap 
httpAccept = LCase(Request.ServerVariables("HTTP_ACCEPT")) 
isWap=Instr(httpAccept, "wap") 
if isWap<>0 then 
Response.Redirect "http://"&siteurl&"/wap/login.asp" 
Response.End 
Else
response.redirect "index.asp"
End if 
%>